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EDITORIAL Lee Privett 


nother exciting issue as the annual edition of QUANTA’s 
accounts and the important changes are included as a 
separate pull-out. A few members have written in recently 
to thank us for the continued support for the QL and its 
derivatives and they also state how much they enjoy reading the 
QUANTA magazine. | hope you like our slightly new look to the front 
cover and for those of you who receive this electronically you will notice 
a bit more colour on the front page also. 
This is the final issue before the all important AGM, and a final reminder 
from me that your vote is important so use it. There have been a few 
amendments to the QUANTA constitution over the last year to clear up 
many anomalies and to move with the times. 
The costs of getting the QUANTA magazine out to all and the website 
(now up and running) with more news stories etc. has meant a small in 
real terms increase in the subscription, lest we forget QUANTA is run by 
volunteers. It is likely that we will see again this year many QL related 
hardware and software possibilities, some may use the QL Black Box 
and some may not. Whatever happens QUANTA will be here to serve 
the QL community as best it can. 
We have some great programs for you to explore from regular 
submitters Steve Poole and George Gwilt, with Steve setting some 
challenges for the rest of us and George giving 
tantalising titbits for the future. Looking forward to 
another year of QL’ing and maybe see you at the of GL 
AGM. 
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QUANTA NEWS Dilwyn Jones 


f you have QL-related news items that you’d like us to include on 


this page, please get in touch with News Editor - Dilwyn Jones at 


news@dquanta.org.uk 


Urs KOnig’s QL Videos On YouTube 

Urs Konig writes: 

Recently Google renewed YouTube’s channel design. | took this as a 
chance to give my QL related web activities a re-launch. I’ve decided 
that my YouTube channel QLvsJAGUAR becomes my main site from 


which all content can be reached. 


http://www. youtube.com/QLvsJaquar 


"IBM sincta. Ot, ATARI JAGUAR, NUON, APPLE & more 
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Gold Card/Super Gold Card Battery Replacements 
After a long running development phase for these devices, it seems they 
may be nearer to seeing the light of day. 
Dave Park wrote on QL Forum during January: 
After early testing, everything is electrically sound, but there are two 
mechanical issues: 
1. The pins | selected are just fractionally too small for the turned 
sockets on some GCs and SGCs. 
2. The style of battery holder | purchased isn't ideal - they are right 
on the dimensional limits, and when typing, can make intermittent 
contact with the metal under—tray of the keyboard - unacceptable. 


| have modifications for both. 


Blast Buggy Re-Released 

RWAP Software have now been able to re-release the Blast Buggy game 
for the QL, by Paul Tuck. This was originally sold by Shadow Games, but 
the rights to it were acquired by Talent+ so RWAP were able to bring it 


back to market. 


Rich Mellor wrote that 
he “found this game 
quite hard so couldn’t 
get a good screen 
shot.” Here’s one 
picture reproduced 


from 


SellMyRetro.com. 
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Rich also wrote that Paul Tuck wrote at least two other games — Space 
Paranoids and QL Defusion, and says he “would love to get hold of him, 


so that he can sort re-releasing QL Defusion.” 


Gwass Update 
George Gwilt has released version 5.07 of the GWASS assembler 
program. It is available to download from his website at http:// 
qwiltprogs.info 
George writes: 
1. This allows the use of JSR.L adrs to mean JSR.L (adrs).L. The 
same applies to JMP. These work whether adrs is an explicit 
absolute address or a label. 
2. Byte sized immediate <ea>s on assembly should now all 
produce a word with the first byte zero. Previously such an 


instruction as 


MOVE.B #-2,D0 


would have had $FFFE as the word. This will now assemble to $00FE. 


New Q-emuLator Blog Q-emuLator blog 
Q-emuLator author Daniele Ape errr 
Terdina has announced the 


new Q-emuLator blog, at 


http://qemulator.blogspot.com/ 


This will likely be a low-traffic 
blog, mainly a place where to 
announce availability of new 


La 
w 
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updates to existing users. 


An update for Windows has just been released, and an update for OS X 
is in the works. 


Q-emuLator 3.1 for Windows now available. 
January 29th, 2012 saw the release of version 3.1 of Q-emuLator for 


Windows, adding support for compressed floppy disk images and 


improving the accuracy of 'QL Speed' emulation. 


This latest version is available to download from http://www.terdina.net/ 
ql/wingl.html. If you are already a user of Q-emuLator version 3.0, your 
registration code will still be valid for update to this new version 3.1. 

A number of ‘qlpak’ software packages are available to download from 
http://www.terdina.net/ql/software.htm! 

There is a version of Q-emuLator available too for the Mac OSX system 


— see http://www.terdina.net/ql/MacQL.html 


Q-emuLator startup screen. Remind anyone of a QL? 
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Psion Chess and a Q60 display emulation demo program for Q-emuLator 


QL SD Card System 


Peter Graf has announced that his QL-SD project is being passed to 
Adrian lves at Memory Lane Computing to finally bring to market. Peter 
has expressed his gratitude to Adrian for his willingness to move forward 
with the QL-SD, as Peter's lack of time had meant he was unable to 


bring it to market. 


This is a small SD card interface which replaces one of the Microdrives 
on a QL. Thus the Microdrive cartridge slot chosen becomes an SD card 


slot and looks very professional from the pictures | have seen of it. 


Adrian Ives gave this description of how the product stands at the 


moment: 


“The hardware is working on black box QLs but there are still some 
issues to be overcome relating to noise pickup. This is especially 
problematic if the SD card holder is mounted in a vacated Microdrive slot. 


Peter has already redesigned the PCB to get around this problem. 
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Next QUANTA Sponsored Event 
Annual General Meeting 2012 And Workshop, Date: Sat/Sun 24th/25th March 
Opening on Saturday at 11.00 am (Doors open 10 am for setting up), 
Sunday at 10.00 am with the AGM at 2.00 pm in the afternoon. 

The Venue will be in Manchester at the 


3rd Davyhulme Scout Headquarters, “The Endeavour’, 
Conway Road, off Lostock Road, Davyhulme, 
Manchester. M41 OTF. Near M60 JQ. 


QUANTA Magazine 


There are problems with the Super Gold Card that have not yet been 
resolved. The Gold Card has not been tested at all (because | don't have 
one). 


The software is written. There are two drivers available: 


1) QL-SD, a driver written in C derived from Dirk Steinkopf's QL-HD 
driver. At present this is too big to fit into a 16K EPROM and needs 
further optimisation. 


2) An EDDE 2 driver that is both compatible with the Ser-USB and 
USBWiz over Q-BUS and is able to mount FAT32 volumes holding 
file system images. This is ROM-able and supports booting from an 
SD Card. All v2.x Ser-USB/Q-BUS utilities (Partition Manager etc.) 


work with this and the partition formats are identical. 


3) An EDDE 2 Block Device Interface driver for Q-emuLator's 
emulated hardware interface. This allows file system images to be 
accessed on the PC and read/written by QL software running under 
Q-emuLator. 

——_——===_— = 


Neng cine 


| 
| @ 
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Memory Lane Computing website 
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| currently have two functioning hardware prototypes: 


The QLROMEXT which plugs into one of the QL's internal ROM sockets. 
The SD Card carrier fits into a vacated Microdrive position. 


The QLROMEXTernal 
which plugs into the ROM 
port with the SD Card 
socket on-board.” 


Adrian also reported that a 
small number of prototype 
units may be available for 
testing in early March. 


Further details will be 
available in due course from the Memory Lane Computing website at 
http://www.memorylanecomputing.com/ 


Pictures of early versions of the QL-SD interface, mounted in the MDV2_ 
slot in a QL. 
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Classic Adventures Solution Archive 


A number of files about QL adventure games are now available 
from the Classic Adventures Solution Archive (CASA). This website 
contains articles and solutions about a large number of classic text 
adventure games from over the years, including 31 entries (at the 
time of writing) about QL games. 


In their words, CASA is “All about text adventure games, the best 
(and oldest) type of computer game known to man!”. The site 
covers all 8-bit and 16-bit formats. Information, solutions, maps, 
hints, reviews and more. 


CASA is not about game downloads — but there are plenty of places 
to find these games. For example, they include lots of references to 
our very own RWAP Software and to QL text adventures such as 
Dreamlands, From The Tower Of Valagon and The Pawn. 


In other words, a wealth of information for any QL game players! 


— ———— el sg a 
-@ - : ‘ ‘ . &-S-26 + jem lee @ 


CASA website 


FEB/MAR 2012 Page 13 of 56 


QUANTA Magazine 


Games - Sinclair QL (31 results) 
A number of games are commarically available from BWAP Adventures 
ZSRCOELTGHIIELMUCEQRSEIUYWEYEZ 


Sotution 


Solution, Map, Hints 


Fj a 
$ 


rare 


| 
Fy! 
$5 


Sotution, Map, Hints 


vill 
5/5/21 


Sotytion, Hinks 


Sion > | 


CASA’s QL adventure games listing 
TheQL.co.uk 


Stumbled across an intriguingly named website the other day. Visit 
http://www.theql.co.uk and you'll see what | mean. Pictures of QLs and 
accessories? Plenty. QL Videos? Plenty. Blog? Yup. Contact details — 
ah, problem. go to the Contacts page and if you want to contact the 
author of the website, just don’t bother using the first email address you 
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see there, read all the page first. Oh, and have a pair of dark glasses for 
when you first visit the site, it’s ... ermm ... colourful. The author of the 
site is not a million miles from QUANTA committee but here’s a clue — it 
wasn’t me. OK, after taking the Michael a little, there’s a lot of interesting 
stuff on there, so pay the site a visit and follow the blog. 


QL Service Manual Online 
You can now find an online copy of the QL Service Manual as HTML 
pages and clickable links to help you navigate from one part to another 


and find the topic of interest to you. 


The QL manual was originally OCR’ed by Andy Dansby and was 
HTML'ed by Juanjo Ruiz Leo. 


Read it online at http://ciberia.ya.com/rulo_sinclairgl/servicemanual/ 
qlsm_en.html 


r —_ - —— 
a. si ad 
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Sinclair QL Service Manual 
The QL Service Monwal was OCK ed by Andy Danrhy (aoc consi Grate con) for the Sueclair works. Many thanks to ( 
fi 8 sot rer 
f Lah RESEARC ) 
List of Contents 
« SECTION | SYSTEM DESCRIPTION 
» SECTION 2 DISASSEMBLY ASSEMBLY 
« SECTION 3 SYSTEM TEST 
« SECTION S15 
List of Illustrations 
al . 
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RWAP Software 


Replacement QL Keyboard 
Membranes 


Special Offer for Quanta Members 
£12 each plus post and packing 
Quote "Quanta 2012 Offer" 0 
Post and packing: 
UK €2.50 


Europe £2.80 
Rest of World £3 
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Visit the QL Wild for mare details on software, books and 
hardware for the Sinclair QL: 
waw.rwapadvertures.cam/q wild 


« oke-on-Trent Why 2 ac beytoard reemirane cout) change yout whale carrer trategy! 


yh’ OS"esemjosdeas MAA 


UK Cheques payable to'R. Mellor’ or use PayPal 


Wetsite 
www Jwagecttware.couk Of www.selmyetro.cam 


QUANTA Workshop and AGM 2012 


| hope we'll see as many members (and non-members) as possible at 
the workshop over the weekend of 24-25 March 2012. At the time of 
writing | have heard from several QL notables who hope to attend and 
give talks at the event, e.g. Adrian Ives of Memory Lane Computing 
hopes to give a talk on his QL products, including the new Peter Graf QL 
-SD card interface, George Gwilt hopes to attend and give a talk on his 
software, we may have a presentation on QL games and QL eBooks too. 
The workshop venue is easy to find — if coming by car turn off the M60 
motorway at junction 9 onto Lostock Road (B5150), heading for 
Davyhulme and Urmston. Take the second exit on the right onto Conway 
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Road and the Scout headquarters is the building on the right on the first 
corner of Conway Road. See you all there! 


It is actually quite important that members attend the AGM on the 
Sunday as we will be voting on updating the QUANTA constitution, as 
discussed in the magazine during the last few issues. Geoff Wicks and 
Rich Mellor have been helping the committee draw up the revised 
constitution to make it suitable for carrying QUANTA forward. Simple 
examples of the changes proposed are that unmarried partners can be 
associate members, not just spouses, but there are quite a few other 
changes proposed too. 


Come along and express your views, or if you are happy with the 
proposed changes come along to vote — the more participants the 
better. 


FPGA QL 


There has been a lot of talk recently on QL Forum about the possibilities 
of producing an FPGA-based QL. 


What is an FPGA, exactly? Well, here’s a short quote from Wikipedia, 
you can see the full article at 
http://en.wikipedia.org/wiki/Field-programmable gate array 


A field-programmable gate array (FPGA) is an integrated circuit 
designed to be configured by the customer or designer after 


manufacturing—hence "field-programmable". The FPGA configuration is 
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generally specified using a hardware description language (HDL), 
similar to that used for an application-specific integrated circuit (ASIC) 
(circuit diagrams were previously used to specify the configuration, as 
they were for ASICs, but this is increasingly rare). FPGAs can be used 
to implement any logical function that an ASIC could perform. The ability 
to update the functionality after shipping, partial re-configuration of the 
portion of the design and the low non-recurring engineering costs 
relative to an ASIC design (notwithstanding the generally higher unit 


cost), offer advantages for many applications. 


FPGAs contain programmable logic components called "logic blocks", 
and a hierarchy of reconfigurable interconnects that allow the blocks to 
be "wired together"—somewhat like many (changeable) logic gates that 
can be inter-wired in (many) different configurations. Logic blocks can 
be configured to perform complex combinational functions, or merely 
simple logic gates like AND and XOR. In most FPGAs, the logic blocks 
also include memory elements, which may be simple flip-flops or more 


complete blocks of memory. 


Where this discussion got really interesting was the revelation that Peter 
Graf (designer of the Q40 and Q60) has had a hardware QL design 
based on an FPGA ready for some time, but has sensibly avoided 
publicising it as he has no operating system finished and ready for it. He 
has tried to implement a version of both Minerva and QDOS Classic for 
the board but is struggling a little with implementing both. Using SMSQ/ 


E is not an option because of licensing issues. 
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Please do not expect that this “new QL” system will be available soon — 
but now that knowledge of it is filtering out Peter may be able to get 
assistance with implementing the operating system. As you will see 
above, the use of FPGA chips allows potentially for a lower cost design 


as just one benefit. 


Ready or not, it is encouraging to see that new hardware is being 
developed and we can only hope that this system will eventually see the 


light of day. We wish Peter good luck with finalising this project. 


Vbcc For QDOS 


An interesting posting on the QL Forum jumped out at me during 
January. The posting was from Markku Reunanen in Finland and may 
prove of interest to those with an interest in the C language. I'll just 
reproduce the posting here and leave those with an interest to look into 
it. 


| tried to find a working cross-compiler for my QL, but couldn't really find 
anything except a non-working GCC hack. GCC is so convoluted that | 
didn't want to spend the rest of my days porting it, but vbcc (http:// 
www.compilers.de/vbcc.html) seemed to be a lot easier to tweak, and 


still a real optimizing modern compiler. 
My findings can be found here: http:/www.kameli.net/marg/?p=1251. To 


make a long story short, it works. My solution, done in a day or so, is full 


of kludges, but with a little more attention, plus QL-specific libs and 
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headers, it could definitely become a very useful tool. The current hack 
works enough for me, but I'd be glad if someone took the porting over, 


eventually even turning it into a real vbcc frontend. 


Markku and a friend also put together a QL demo — again I'll reproduce 
the posting here complete with links for those interested readers to 


follow up, something | personally haven’t had a chance to do yet: 


A little something me and a friend hacked together as our first QL 
production (source included): 
http://ftp.kameli.net/pub/fit/misc/nyanleap. zip 

Tested only on a barebones original QL, so | have no idea whether it 
runs on emulators, SMSQ/E, accelerators etc. Kinda ugly hacking at 
places, but | just couldn't find any guidelines as to how to do things the 


right way for the more advanced machines. 


Video here: http://www. youtube.com/watch?v=mMVFrKQ2qRY 


QL Manual eBook 


Adrian lves has kindly sent me a scanned copy of the QL manual, 
second edition. I’m not quite sure of the full differences between the 
versions, except that | notice that comparing this with the first edition on 
which my plain text version was based that there is the occasional 


different text. 


Anyhow, | am busily proof reading and converting this to eBook format 
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and any other useful formats | can think of, and I'll make it available via 
the eBooks page on my website http://www.dilwyn.me.uk/docs/ebooks/ 


index.html 


This will include the Introduction, Beginners Guide, Keyword Guide, and 
Concepts sections initially, and if possible (and time allows!) | may go 
further and reproduce the Quill, Archive, Abacus and Easel guides too. 
We know that there are some new users out there who buy a QL from 
sources such as eBay and SellMyRetro.com without manuals, so this 


would seem to be a viable and worthwhile project. 


Looking ahead a little, a possible next step in the project might be to 
produce a keyword guide which is a merged QL and Toolkit 2 keyword 
reference guide as most of us use QL systems which have Toolkit 2 and 
| for one often need to refer to both guides to check syntax of keywords | 
don’t use very often. And beyond that, another logical step might be an 
HTML online QL Guide perhaps! If anyone has views on whether these 
are worthwhile projects, or even offers of help with the work, I’d be very 


grateful to hear from you! 


TIME & TIME THE ERROR Lee Privett 


ell, no sooner had the last issue gone out when | 
received a correspondence telling me the error of my 
ways with regard to the programming and timing | was 
trying to achieve. | had made a ‘classic mistake’ in 


code for the timing in assuming the start point would not be relevant, 
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which it is. The following is part of the last issues coding and is 


highlighted with the offending piece: 


100 REMark Clock test 

110 : 

120 WINDOW 512, 240, 0, O 

130 IF VERS='HBA' THEN COLOUR_QL 
140 MODE 8 

150 PAPER 1:INK 6:CLS 

160 : 

170 Countdown 10 

180 : 

190 DEFine PROCedure Countdown (st) 
200 CSIZE 3,1 

210 StartTime=DATE 


220 FOR £ = 0 TO st 

230 AT 5,5:PRINT st-f;" " 

240 REPeat loop 

250 IF DATE>=(StartTimet+tf) THEN EXIT loop: 
END IF 

260 END REPeat loop 

270 END FOR f 

280 END DEFine Countdown 


What | had omitted to take in account when ‘running’ the program is the 

time taken for all the bold/italic parts to be interpreted by the processor. In 
addition, line 210 is the starting point to which all my timings are based on 
yet my test on line 250 checks for the end of a complete second so who is 


to say where in the ‘one second‘ cycle line 210 actually starts. 


There are two ways in which this can be overcome, one is to extend the 
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time by increasing the count start from the first whole second, the other 
is a complete re-write. | thought before giving my solution in the next 
issue was to see if any other QUANTA members can come up with a 
more eloquent solution. One of our other contributors submitted a 
version of their method of timing, Steve Poole wrote : 


| use the following code, 


200 d1=date: if d1=DATE: GO TO 200: ELSE d1=DATE 
210 blah blah 
330 PRINT DATE-d1!'secs' 


Line 200 waits for the clock to tick, while line 330 is only accurate 
to the nearest second. If you don't do this, you can be almost two 
seconds out! A lot for short delays... 

George Gwilt has given a method of using the internal timer 


accurate to 1/50th second. 


So readers this is your challenge, can you do better? 


QUANTA HELPLINE Dilwyn Jones 
Q. 

| tend to have a large number of toolkits installed on my QL which take 
up a lot of memory. Is it possible in some way to extract just the 
extensions | use regularly from them? Also | would like to merge some 


of them into one file so that they load faster if possible. 
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A. 

A program called DEA, a disassembler program from Ergon 
Development, can in some cases extract keywords from toolkits. DEA 
used to be a commercial program but is now available as freeware from 
either of these websites: 


http://www. sinclairgl.it/qlobage.htm 


or 

http://www.dilwyn.me.uk/asm/index.html 
The program comes with instructions in Italian and English. 
Here's an example where | am extracting the MOVE_MEMORY 


command from Turbo Toolkit. 


First, start the DEA program itself. This brings up the menu shown in 
Figure 1 


Figure 1 
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Move the highlighter over the "On File" command as shown in Figure 1 
and press SPACE or ENTER. This will take you to the screen shown in 
Figure 2. 


Figure 2 : 


It now asks for the "Origin logical start address". Press ENTER to accept 
the suggested default value, which will be correct. Press ENTER again 
to accept the default for the next entry, "Program execution start from 
code start offset". This now brings up the Main Menu. Move the 
highlighter bar down to "Enter Keywords Manager" and press SPACE or 
ENTER. 


Figure 3 
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Now ensure that the highlighter is on "Edit Keywords" (see Figure 4) and 
again press SPACE or ENTER. 


Figure 4 


Now you need to enter a series of responses to questions the program 


asks you. 


First, enter the name of the keyword you wish to extract. For the 
purposes of our example, this will be the MOVE_MEMORY command, so 
enter "MOVE_MEMORY" (without the quote marks). DEA looks for the 
keyword, then asks if you would like to "Keep track of 
MOVE_MEMORY?". Press ENTER or Y for Yes. 


Next, it asks if this is a procedure. In this case, MOVE_MEMORY is a 
procedure, so press ENTER or Y for Yes (if it had been a function you 


would have replied with N for No). 


Next, it asks for the next SB (SuperBASIC or SBASIC) keyword name, 
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but we don't wish to do any more at this stage, so press ENTER to return 


to the Keyword manager menu. 


NOVE _NENORY 


Figure 5 
Now it asks "Parse keywords?". press ENTER and the menu in Figure 6 


appears. 


DEAssenbler 
@ 1990 EF 
Mkeyoords Manager 
BHo keyuords selected 


MESS Keyuord nome (pref 


Press ENTER to accept the suggested defaults. When you see the 


message "Keywords Parsing Complete" in the DEA main window the 
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Keywords Manager menu will reappear. See Figure 7 


Bird 


Figure 7 


Choose item 3 in this menu, "Create source code" and press ENTER, 
which then brings up the "Output Stream Choice" menu, as shown in 


Figure 8. 


Figure 8 


This lets you specify where to send the output file to - this can be to 
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screen, to a device file such as SER1, or (the option we want) which is to 
a file. Select the default of "1 On storage file (e.g. FLP1_"). Next, it offers 
a default filename for the assembler file - which in our case may be 
something like FLP1_Turbo_TK_asm or WIN1_DEA_Turbo_TK_asm. If 
you wish, edit this filename to something more suitable such as 
FLP1_MOVE_MEMORY_asm or WIN1_DEA_MOVE_MEMORY_asm 


Figure 10 
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Assuming these defaults are OK (they will be fine for our example 
purposes) press ENTER. The DEA Code Remarking Menu now appears 


- see Figure 11 


Figure 11 


Press ENTER again if all these defaults are to your liking. The program 
now goes ahead and generates the disassembled output code with the 


filename you entered above. 


Now you can load the assembler code generated into an editor to tidy up 
by hand, add comments, add more code, etc. then assemble it with your 
favourite assembler. Note that if you are using the GST QMAC 
assembler, you need to study the details in the DEA manual for how to 


set DEA to generate code suitable for use with this particular assembler. 
DEA is not a miracle worker - it cannot be expected to handle each and 


every extension in each and every toolkit of course, but it will be fine for 


most. 
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Copyright 


Note that there may be copyright implications in extracting keywords 
from some toolkits like this, plus of course you need to have a little 
knowledge of assembler on the QL to be able to use an Assembler 
program to reassemble the code you have extracted. Read any 
copyright notices or licences supplied with the original toolkit to see if 
you are OK to do this-generally it will be fine if the code generated is for 
your own use only, but it may be a different matter if you include the new 


code in a program which you intend to sell, for example. 


Combining Extensions Into One File 


There are a few free programs available to combine extensions into one 


single file and | will list two such examples here. 


The first is a utility program from Richard Kettlewell called P-Link. This is 
available from the usual PD QL software sources. Execute the program 
called PLINK and it will ask you to enter the filenames of the extensions 
files to be merged, until you make a blank entry and then it will ask you 


for a filename to save the combined set of extensions. It's that simple! 


You can also call it with an input parameter filename of a list of files to be 
merged, followed by a blank line, followed by the output filename. As an 
example, we will create the following file, which we will call 
FLP1_EXAMPLE_TXT: 
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flp1_ptr_gen 
flp1_wman 
flp1_hot_rext 
flp1_mergedkit_cde 


You would call this with something like: 
EX PLINK;’< FLP1_EXAMBPLE_TXT’ 


So what this does is to load and merge ptr_gen, wman and hot_rext and 
save all three in a single combined file called "mergedkit_cde". This is an 
example only - you would not normally wish to merge these particular 

files. If you wish to look at how it works, the package includes the source 


code, written in C. 
A second program to do this is Emmanuel Verbeeck's Super Kit Merger, 


also available from the usual QL software sources. Figure 12 shows what 


the program looks like when it starts. 


SUPER KJ MERGER 


BL) ernnde) Varnae 


Figure 12 
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Figure 13 shows what it expects you to enter. 


Figure 13 


In the top window, you'd enter the filenames of the extension files to be 
merged, pressing ENTER on a blank line to finish the list. Next, in the 
second box down, you enter the filename of the merged file you wish to 
create. In the third box down you can enter a filename for the program 


to create a short BASIC loader program, a kind of BOOT file if you wish. 


Like P-Link, this program also comes with the source code, this time 
written in SuperBASIC, if you’d like to study how it works. When using 
programs like these it goes without saying that you should keep backup 
copies of the original files in case you wish to go through the process 


again at some date in the future! 


P-Link and Super Kit Merger can be downloaded from the Assembler 


page on my website, at: http:/Awww.dilwyn.me.uk/asm/index.html 
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TALLY HO 27 Steve Poole 


ast time we looked at text tallying using base-36 conversion 
routines. This time we will use base-27. Why base 27 and not 
base 26? Because Dilwyn's conversion routines were 
designed to convert decimal numbers to any base, provided 


the first number in that base be zero. 


When | tried adapting his code to convert decimal numbers to the 
alphabet of 26 characters, the letter 'a' was zero, concatenated onto the 
following digits, so any word beginning with 'a' had its leading zeroes 
dropped. | did not notice this until | started thoroughly testing the code, 
and it took me seven hours to pin down the bug, as even tracing through 
the code by printing out each partial variable step did not reveal the 
cause, until | started using BEEPS, which showed that something 
unprintable was happening. Once twigged, a remedy was needed, and 
soon | realised that if | used 27 characters instead of 26, the first 
character could be anything, say '#', so it wouldn't matter if it never got 
printed (being zero). This worked fine which is why this program is called 
TEST. 


So A is 1 up to Z which is 26. Before base conversion alphabet 
characters are offset to alphanumeric values. This program should not 
be tampered with. If you wish to test it, you may change the following 
line 160 variables : option=2 to sort your own words, input here. Ig=1,2,3 
or 4 to define the length of words to sort. nwords=2 to 32000000 number 


of words to sort. pr=0 to stop screen printout for more than say 90 words. 
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The program has been quite thoroughly tested over the nine month 
development period since the original tally integer sort was first modified 


to allow massive compression of input. 


Should you find any problem, please contact the Editor, who will put you 
in contact with the author. Referring back to the previous article, it is 
clear that with 128Mo of RAM allocated, Text tallying can only sort four- 
letter words. After emailing George Gwilt, he gave me permission to use 
his 64-bit precision arithmetic routines, but | later realised that the 
current limit of precision stems from SuperBASIC's internal floating point 
conversion restricting the number of digits after the decimal point. Even 
with George's routines, a 32-bit PC cannot sort more than four- 
characters per word using text tallying. (That is, assuming a maximum 


word rank of 'zzzz’). 


Evidently with a maximum word rank of 'bcde', word lengths could be 
higher. for example, the program can handle ‘dilwyn0’" but not 'dilwyn2' 


These values are just a remarkable coincidence!). 


Later | wrote a base-4 program and got ten-character sorting, which 
could be used for sorting the genetic markers A C G T, mapped as AB 
C D. But let's face it, the ultimate goal is to sort any-length words, which 
would require a high-end scientific super-computer, so tallying text is not 
suitable for home PCs. But in view of the fantastic compression rates 
and blistering speed, it would be a pity not to develop the program for 
such high-end machines. So Dilwyn and | have decided to allow anyone 


who wishes to use our tally text sorting code to do so as long as they 
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make no limitations on anyone else who wishes to use such code. To 
recapitulate, tallying is the fastest integer sorting code available, but text 


tallying will probably only show its full potential in a few niche situations. 


If you have access to high-end computers and wish to develop text 
tallying, Dilwyn and | would be very pleased to hear of any 


developments. 


100 


10 REMark Test bas: Tally Base 27 by S.Poole, 
vl0feb2012 


20 CLCHP: CLEAR: OPEN#1,con_128: WINDOW 
256,206,256,0: PAPER 2: INK 7: CLS 


130 


140 REMark MAIN sorting program 


50 REMark Change lg (nbr chars), nwords, or pr 


(print) only 


160 a=97: z=122: option=1: bas=27: lg=4: nwords=32: 
pr=1 


70 INIT: Loadem: SHOWem: RECHP adr: STOP 


180 


190 DEFine PROCedure INIT 


200 LOCal nS,dn$,ndec,Tb$,u$,nmax 


210 REMark define Highest rank word in the list: 


220 


ny 


ELect lg 


230 Hts nsHhz" 
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240 =2: n$='zz' 

250 =3: n$='zzz' 

260 =4: n$='zzzz' 

270 =REMAINDER : PRINT'no such program': STOP 


280 END SELect 


290 dnS$=down$(n$): ndec=To_Dec(dn$,bas) : 
Tb$=To Base$(ndec,bas): uS$=up$ (TbS$) 


300 PRINT nS,dn$,ndec, Tb$,u$\\ 


310 nmax=ndec: ramtop=nmax*2: adr=ALCHP (ramtopt2) 


320 END DEFine 


330 


340 DEFine PROCedure Loadem 


350 LOCal ct,f£,wd$,i$,dn$,rand,r2,cell 


360 d1l=DATE: IF d1l=DATE: GO TO 360 : ELSE d1=DAT! 


7] 


370 REMark allocate the tallys: 


380 FOR ct=1 TO nwords 


390 

400 SELect option 

410 REMark Make random words: 

420 =1: iss"! 

430 FOR f=1 TO RND(1 TO 1g) 

440 wd$S=CHRS (RND(a TO z)): i$=iS&wd$ 
450 END FOR £ 

460 REMark input your own words using this 
option: 
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We have been working hard to safeguard the future of the 


Sinclair Q 


through creating an online QL Wiki backed by a 


repository of QL titles 


The QL Wiki enables people to see what software and 


hardware was produced for the Sinclair QL. The repository 


enables peopl 


to purchase working copies when their 


microdrive cartridges fail, or they move onto disks or 


emulators. Where we can, we obtain permission from the 


copyright holders to re-release items on the market 


This has enabled us to bring some of the titles back to the 
market as well as re-kindle interest in the Sinclair QL and 
its emulators 


Old favourites brought back to life include 
E.V.A., Vroom 
Black Knight, Double Block 


jungle Eddi, The Lost Pharaoh 


Pengi, the Lonely Joker 
Flight Simul 
Night Nurse and Cuthbert in Space 


or, Darkside of the Moon (£10) 


QL Hopper, The King, 


Microdeal' 


Mortville Mar 


We still retain our existing catalogue, including: 


Open Golf, Return to Eden 
Stone Raider ll, The Prawn, 
Hoverzone, Lost Kingdom of Zkul, 
Deathstrike, Horrorday, 


Flightdeck and QWord 


All garnes are available on disk or for use with Q-emuLator 


Microdrive versions also available - from £10 each 


Memory / system limits may apply - please check before 


ordering 


Visit the QL Wiki for more details on software, books and 
hardware for the Sinclair QL 


www.rwapadventures.com/ql_wiki 


RWAP Software 

3 Dale View Court, Fulford, Stoke-on-Trent 
Staffordshire ST11 9BA 

Tel: 01782 398143 


Email: rich@rwapservices.co.uk 


Website: 
www.rwapsoftware.co.uk of www.sellmyretro.com 


r 


Excess). Eta 


Vroom by Pyramide 


Double Block by Francots Lanciault 


Night Nurse by Microdeal 


i 
: 
Z 
2 
2 
z 
; 
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470 =2: INPUT '>'!iS 

480 END SELect 

490 

500 REMark get ofset alphabet codes: 

51:0 dn$=down$ (i$): rand=To_Dec(dn$,bas) : 
r2=rand*2: cell=adrt+r2 

520 

530 REMark tally the database: 

540 tally=PEEK W(cell): POKE W cell,tallytl 
550 IF tally > 32764: PRINT 'tally overflow': 
STOP 

560 IF pr: PRINT!iS! 

570 END FOR ct 

580 PRINT\\DATE-d1!'secs'\\ 

590 END DEFine 

600 

610 DEFine PROCedure SHOWem 

620 LOCal dil,ct,cell,ct2,sorted$,s$,twins 

630 REMark set timer 

640 d1=DATE: F d1l=DATE: GO TO 640 : ELSE d1=DATE 
650 

660 REMark search ram for tallies: 

670 FOR ct=0 TO ramtop STEP 2 

680 REMark see if cell contains a tally: 

690 cell=adr+ct: tally=PEEK W (cell) 
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700 IF tally THEN 
710 REMark Are there twin words: 
720 ct2=ct/2: sort$=To Base$ (ct2,bas) : 


sortedS$=upS (sort$) 


730 IF pr: FOR twins=1 TO tally: PRINT 
sorted$!! 


740 END IE 


750 END FOR ct 


760 PRINT \\DATE-d1!'secs' 


770 END DEFine 


780 
790 


800 REMark Base Conversions, by D.Jones 


810 REMark QLT v10,i3, p43. 
820 


830 DEFine FuNction To Base$ (dc,base) 


840 LOCal x,c,c$ 
850 x=de 
860 cS="'! 


870 REPeat loop 


880 c=x- (INT (x/base) *base) 
890 IF c<10 THEN 

900 cS=CHRS (48+c) &c$ 
910 ELSE 

920 cS=CHRS (55+c) &c$ 
930 END IF 
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940 x=INT (x/base) 


950 IF x<=0: EXIT loop 


960 END REPeat loop 
970 RI 


Cd 
=| 


urn cs 


980 END DEFine 


990 


1000 DEFine FuNction To Dec(bs$,base) 


1010 LOCal d,l,n,v 


1020 d=0 
1030 1=LEN(bs$) 


1040 FOR n=1 TO 1 


1050 v=CODE (bs$ (n) ) 
1060 v=v-48 

1070 IF v>9: v=v-7 
1080 IF v>15: v=v-32 
1090 d=d+base”® (l-n) *v 
100 END FOR n 


110 RETurn d 


120 END DEFine 


130 


140 


150 REMark character offsets by S.Poole: 


160 


170 DEFine FuNction downs (wrd$) 


180 


ve) 


EMark down to alphanumeric 
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1190 LOCal f,ch$,wS$,cd: chs='' 
1200 FOR f=1 TO LEN (wrd$) 
1210 wS=wrds (f£f) : cd=CODE (ws) 
1220 REMark zero is '"': 
1230 SELect cd 

1240 =96 TO 105 : ch$=ch$&CHR$ (cd-48) 
1250 =106 TO 122 : chS$=ch$&CHR$ (cd-9) 
1260 =REMAINDER : BEEP 12345,67: STOP 
1270 END SELect 

280 END FOR f: RETurn chs 

290 END DEFine 

L300 

1310 DEFine FuNction upS (wd$) 

320 REMark back up to alphabet 

330 LOCal £,ch$,wS,cd: ch$='"' 

1340 FOR f=1 TO LEN (wdS) 

1350 wS=wd$ (f£) : cd=CODE (wS) 

1360 SELect cd 

1370 =48 TO 57 : chS=ch$&CHR$ (cd+16) 
1380 =65 TO 81 : ch$=ch$ &CHRS$ (cd+9) 
1390 = REMAINDER : BEEP 12345,67: STOP 
400 ND SELect 

410 END FOR f: RETurn ch$ 

420 END DEFine 


(This tallying text program should appeal for people with very big high- 
end computer access i.e. 64bit systems. Steve and Dilwyn would 
welcome ideas and comments on its use and any suggestions for 
improvement as this can now be considered a QUANTA project - Ed.) 
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WRITING TO THE SCREEN IN C George Gwilt 


68 has libraries giving access to the QDOS operating 
system. While these work admirably they can be slightly 
awkward to use and as a result | found an easier way of 
performing screen operations which some may find 
interesting, or even useful. | have defined a set of commands, listed 
below, in terms of functions which themselves call the C68 QDOS 
functions. As well as these commands there is provided a 256-byte buffer 


which is called "buff". 


An example of all this is the command to print "Hullo". This is, simply: 


PRINT (2,Hullo); 


This will print "Hullo" to channel 2. If this con channel does not exist, it 
is opened. Admittedly, it will be opened as a default window and will not 
be cleared before the "Hullo" is printed. But it works! 

All the commands have, as first parameter, the channel number which 


must be within 0 to 31. 


To set the buffer you need: 


The meaning and use of the commands listed below should be 
reasonably clear, except perhaps for EDIT. This allows editing of the 


FEB/MAR 2012 Page 45 of 56 


QUANTA Magazine 


contents of the buffer. This should, of course, be a C string starting at the 
beginning of the buffer. 


The editing uses the window indicated as the first parameter of EDIT. 
The second parameter gives the maximum string length allowed, which 
includes the terminating character. 


The editing will start on the screen wherever the cursor happens to be. 
Thus you can print to the screen "Edit this", and then issue the command 
AT(h,10,0) to have the editing take place just one space after the prompt. 
Of course it might be better to ignore the AT command and print "Edit 
this\040". With luck this should produce a space after the "this", which is 
effectively what the AT command does. 


Here follow the commands (Perhaps in a later article | will divulge the 
way in which these commands are produced). 


Window Commands 


In the following "h" is a number from 0 to 31 indicating the channel 
wanted. 


AT (h, x-position, y-position) 


BLOCK (h, x-size, y-Size, X-origin, y-origin, colour) 


BORDER (h, width, colour) 


BPRINT(h) prints the contents of the buffer 


"buff" 


CHENQO(h,x) puts the cursor character position in 


buff + x 


CSIZE(h,x,y) with x = 0 to 3, y = 0 to 1 as 


BASIC. 
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CURSOR(h,x,y) X, y is the cursor position to be 


set (in pixels) 


EDIT(h,x,y) x is buffer size (<128), y is the 


cursor position 


INK (h, colour) 


OVER(h,x) with x = -1, 0 or 1 

PAN (h,xX,y) with x or pixel move, y = BASIC 
On 3 sor 4. 

PAPER (h,colour) - NB this does STRIP as well (as 


does BASIC) 


PRINT (h,m) prints the message m [eg PRINT(0,This 


is so)] 
PRINTD(h,wh) prints the "int" wh as decimal 


PRINTFP(h,wh) prints the QL fp number as decimal 


PRINTH(h,wh) prints the "int" wh as hexadecimal 


PXENQ (h,x) puts the cursor pixel position @ buff 


+ X 


SCROLL (h,x,y) with x = + or pixel move, y = 


BASIC 0, 1 or 2. 


STRIP (h, colour) 


TAB (h, x-position) 


UNDER (h,x) with x=0 no underline, x=l1 underline 
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WINDOW (h,x-size, y-Size, X-origin, y-origin, border 


colour,border width) 


Graphics (I... use "int" - others use "double") 


Here xs, ys and xe, ye are the start and end points 
ais an angle (in radians) 
xc, yc is the centre of an ellipse 
e is an ellipse's eccentricity 
ris an ellipse's major axis (assuming e between 0 and 1) 
s is the graphic's scale 
v, z is the graphic position of cursor 


x, y is the relative pixel position of cursor 


ARC (h,xs,ys,xe,ye,a) Draws arc 


TARC (h, XS, YyS,Xe, ye, a) 


CIRCLE (h,xc,yc,e,r,a) Draws ellipse 


CIRCLE (h, xc, yc,e,¥r,a) 


LINE (h,xs,ys,xe, ye) Draws line 


LINE (h, xs, ys, Xe, ye) 


POINT (h,x,y) Draws point 


POINT (h, x,y) 


SCALE (h,s,x,y) Sets scale 


SCALE (h,s,xX,y) 
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GCUR(h,v,z,xX,y) Sets graphics cursor and pixel 
offset 


IGCUR(h,v,Z,X,y¥y) 


FLOOD(h,o) Sets FILL on or off 


Extended colours 
The following 15 are three groups of 5. 


In the name "a" stands for P, T or N which mean palette, true or native. 


PAPERa (h, colour, stipple) 


STRIPa(h, colour, stipple) 


INKa (h, colour, stipple) 


BORDERa (h, colour, stipple, width) 


BLOCKa (h,x-size, y-Size, xX-origin, y-origin, 


colourl, colour2, stipple) 


New WMAN colours 


WM BLOCK(h, x-size, y-size, x-origin, y-origin, 


colour) 


VM BORDER(h, width, colour) 


VM STRIP(h, colour) 


VM INK(h, colour) 


VM PAPER (h, colour) 
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QE Today Volume! 16 


We at QL Today are now in our 16th year! The issue | of Volume 16 will came with a 
DVD (included in the price) containing all previous issues of QL Today in PDF 
format - from Volume | to Volume 15, English and German (as long as German 
ones were produced). By subscribing for Volume 16, you get 15 complete Volumes 
from the past to read as well! Issue | and 2 (another great issue!) are still available 
and will come to you if you subscribe now, Issue 3 is currently under production 
and will be shipped to the readers approx. middle of March. 

You can subscribe by using this form (or a copy of it), or subscribe online via 
www,QLToday.com (the form can be downloaded), by email, letter, fax etc. ... we 
are flexible! 

If you renewed already for Volume 16 please send an email to SMSQ@J-M-S.com ... 
according to our information, it has not been renewed, Thank you, 


I hereby subscribe to QL Joday for 4 issues of Volume 16. The total price for all four issues is as follows, 
including postage and packing (depending on destination) 


Destination price 

|| Germany EUR 29.90 

| Rest of Europe EUR 32.90 — or £29.90 (UK) 
| Rest of World EUR 37.90 


[| Please charge my credit card; {| VISA [-] MasterCard [| Diners Club 
LJ expires (_J-LJ 


Card Verification Code: 


[_] Money transfer to one of the following accounts: 

{_) Deutschland: Jochen Merz, Account 493 50 431, Postbank Essen, BLZ 360 100 43 

{_) Osterreich: Jochen Merz, Account 85055317, PSK Wien, BLZ 60000 

{| Switzerland: Jochen Merz, Account 60-690080-4, PostFinance, Clearing-Nr. 09000 

{_) The Netherlands: Jochen Merz, Gironummer 3258439, Postbank NL Amsterdam 

{_\and from all other countries in EUR with IBAN and BIC to account 
Jochen Merz, Deutsche Postbank AG, IBAN: DE21 3601 0043 0611 1004 37 / BIC: PBNKDEFF 360 

|) UK customers can pay £29.90 (price based on exchange rate at print time, valid until Sept. 2011) to 
Jochen Merz, Account 83795395, Citibank UK, Sort code 30-00-45 
or send cheques in £ - no fee for UK sterling cheques (payable to Jochen Merz only)! 


[| Payment via Paypal: Log into your paypal account and send the money (in EUR) to paypal@J-M-S.com 


Date, Signature 
Please fill in and send to Jochen Merz Software, Kaiser-Wilh-Str. 302, 47169 Duisburg, Germany. 
or Fax to +49 203 SO1S17 or scan & Email to SMSQ@J-M-S.com 
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SUBGROUP MEETINGS 


ub group meetings are where QUANTA members and non- 

QUANTA members get together to discus, tinker and explore all 

things QL related. If there is a subgroup near you then why not 

pop along and see what’s happening, you never know there 
may be something you could help with or a problem that you know the 
answer to. If there is not a sub-group near you why not hold one your- 
self? (Ed.) 


THE WEST MIDLANDS QL USER GROUP 


he meeting place is called the Bull, the address is 1 Price Street, 

Birmingham, B4 6JU. It is approximately 7 minutes walk from 

Snow Hill main-line railway station and has ample street parking 

nearby. Meetings remain open to QUANTA members and non- 
members alike. 


After your first meeting you're expected to pay £1 each time towards the 
organisation and monthly newsletter costs - except once a year when the 
group pays all those who attend a pound instead ;-) 


We provide food twice a year for those who attend the AGM and the 
group's birthday party) and at meetings we discuss all sorts of things, QL 
-related and otherwise, usually from about 8:20pm onwards till 10:30 or 
later. The group owns QL hardware, a disk library and subscribes to rele- 
vant magazines. People can join the mailing list for £3.50 per year, even 
if they can't attend regularly. 


Meetings: Meetings are usually on the first and third Monday of each 
month (but not on bank holidays unless the previous one was cancelled 
for that reason). 

Contact: The contact number remains Mike Bedford White's, on 0121 
605 4438, anytime after 11am. 

Email: mikebwhite@blueyonder.co.uk 


FEB/MAR 2012 Page 51 of 56 


QUANTA Magazine 


QUANTA DORSET SUBGROUP - Dorset 


eetings are held, on the second Sunday of each month be- 
tween 2.00pm and 5.00pm. For location please contact: 
John Penn-Simkins - 01202 422491 or John Mason - 01425 
275894 


LONDON QL AND QUANTA GROUP 


eetings are held in the School Room, which is the basement 

of the Borough Welsh Congregational Chapel, 90, Southwark 

Bridge Road, London SE‘. This is almost opposite the junc- 

tion with Marshalsea Road, at the other end of which, 5 
minutes walk away, is the Borough Underground Station. Free parking is 
easily available in Southwark Bridge Road for road users, Cyclists are 
welcome. Members currently each pay a subscription of £40 per year to- 
wards the cost of the hire of the hall and a small additional charge is 
made for tea/coffee - biscuits are then provided free. 


Please bring your QL equipment if possible, all types welcome, e.g., PC 
portable running emulators. The Group has some systems stored at the 
venue for its use. In addition, there are lots of donated second user 
equipment, books, magazines, etc., available for purchase. Time: 2.00 
pm. to 5.00 pm., on the second Sunday of the month. No meetings are 
held in December / January - winter break, or July / August —the summer 
break, giving 8 meetings a year. Malcolm Cadman - 020 8691 5780 
Email: QL@mcad.demon.co.uk 


NEMQLUG - THE NORTH EAST MANCHESTER QL USER GROUP 


eetings are held at 181, Urmston Lane, Stretford, 
Manchester. M32 9EH (Near Junction 7 of M60 Motorway 
eWas Junction 7 M63 Motorway). Our informal meetings start 
at 7 p.m. and finish at 11 pm. All welcome. Meetings are on 
the last Thursday of each month (except December). John/Sarah Gilpin — 


0161 865 2872 (thegilpins@btinternet.com) 
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SCOTTISH QL USERS GROUP 


QLUG meets at George Gwilt's home every second Sunday in 
the month. Please contact George Gwilt before coming, to get 


the location. Gdggler@qmail.com 


SOLENT SUBGROUP 


eetings are at Botley Market Hall, all welcome. Park at the 
back and use side entrance on the 1st Saturday of the month 
from 2.00 pm to 6.00 pm. Graham Evans - 023 8040 3350. 


SURREY QUANTA SUBGROUP (SQSG) 


he group is currently trying other venues in the Leatherhead 

- Epsom area. If you plan to attend but do not get our emails, 

please phone or email Ken Bain for the latest location. Meetings 

are 8.00 to 10.00 pm on the last Wednesday of each month ex- 
cept December. Ken Bain - 01932 347432 (to midnight), 
kenb@bcs.org.uk 


SUSSEX QL USER GROUP 
urrently without a meeting place, anyone interested should 


contact Roy Wood - 01273 430501 or Keith Mitchell - 01903 
742263. 
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U0 VADIS ndependent Information 
D ¢ S$ ( G NV tied biel 


www.ql-qvd.com 


OW0 VADIS 


DCSIGIY Setrmgy Serves QLU/QDOS/SMSQ/E Software 


News 


* QVD QL News Blog - keep up to date 
News Blog 


* Quo Vadis Design Website Launched 
an/ea/2009 


Soteare eredathers af the COL saw exe witch cam tun un a 
PUMtac wth Windows rac a tr Operating gears. 


COPE © POOF Owe Vinbs (emepe AF Heats Mirserens 


Check the QL News Blog on 

Bruce@ql-qvd.com our website for updates. 
Quo Vadis Design www.ql-qvd.com/blog 
38 Derham Gardens 
Upminster 
RM14 3HA 
UK 

The OL magazine 
Tel: +44 (0)20 71930539 ‘@) LT te EOE. 


Fax: +44 (0)870 0568755 Subscriptions taken online 
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WM WINDOW (h,x-size, y-size, x-origin, y-origin, border 


colour,border width) 


Cursor movements 
NL(h) -> new line 
UP(h) -> previous line 
DOWN (h) -> to next line 


LEFT (h) -> left one character 


RIGHT (h) -> right one character 


CLS (h,x) with x = 0 to 4 as BASIC 


File operation 


FBYTE(h,timeout) returns a byte without echoing 


it on the screen. 


— 


If not pointer environment a cursor is provided.) 


Channel Base 


CH _BASE(h) returns the channel base (+$30 if PE 


—_ 


LATE NEWS Lee Privett 
ne more thing to add that missed the news section is that 
we now have a Facebook presence, and you can find us 


here http://www.facebook.com/pages/ 
QUANTA/210849812344984?sk=wall however, you will 


need a Facebook account (it is free). 
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